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TITLE VARSORCIRAL - VAX-11 Packed Decimal Instruction Emulator 
-IDENT /Vv04-000/ 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 


FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
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; Facility: 

: VAX-11 Instruction Emulator 

; Abstract: 

The routines in this module emulate the VAX-11 packed decimal 
instructions. These procedures can be a part of an emulator 


pacha e or can be called directly after the input parameters 
ave been loaded into the architectural registers. 
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The input parameters to these routines are the registers that 
contain the intermediate instruction state. 
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; Environment: 


These routines run at any access mode, at any IPL, and are AST 
reentrant. 
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Author: 

; Lawrence J. Kenah 
Creation Date 

24 September 1982 
; Modified by: 
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6 3g : v01-007 LJK0043 Lawrence J. Kenah 26-Jul-1984 
60 ; Change STRIP_ZEROS routines so that they are more forgiving 
0 61 ; when confronted with poorly formed packed decimal strings. 
0 86 ; Specifically, do not allow string Lengths smaller than zero. 
09 64 : v01-006 LJK0038 awrence J. Kenah 19-Jul-1984 
0 eo 3 Insure that initial setting of C-bit is preserved when 
3 6¢ : MOVP is restarted after an access violation. 
$00 o8 : v01-005 LJK0024 Lawrence J. Kenah 20-F eb-1984 
0000 $° : Add code to handle access violations. 
000 71; v01-004 LJK0013 Lawrence J. Kenah 17-Nov-1983 
800 ie ; Move CVTPL to a separate module. 
0000 74; v01-003 LvK0008 Lawrence J. Kenah 18-0ct-1983 
44 2 3 Move decimal arithmetic and numeric string routines to 
i$ 6 ; separate modules. 
0000 78: v01-002 LJK0006 Lawrence J. Kenah 14-0¢t-1983 
0000 79 ; Fix code that handles arithmetic traps. Add reserved operand 
0000 80 ; processing. Add PROBEs and other code to handle access 
B00 3) 3 violations. 
0000 HG : V01-001 Original Lawrence J. Kenah 24-Sep-82 
0000 84; 
0000 85 ;-- 
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; There are several techniques that are used throughout the routines in this 
; module that are worth a comment somewhere. Rather than duplicate near 

; identical commentary in several places, we will describe these general 

3; techniques in a single place. 


: The VAX=-11 architecture specifies that several kinds of input produce 
UNPREDICTABLE results. They are: 


© Illegal decimal digit in packed decimal string 


o Illegal sign specifier (other than 10 through 15) in low nibble of 
highest addressed byte of packed decimal string 


o Packed decimal string with even number of digits that contains 
other than a zero in the high nibble of the lowest addressed byte 


These routines take full ig of the meaning of UNPREDICTABLE. 
In general, the code assumes that all input is correct. The operation 
of the code for illegal input is not even consistent but is simply 
whatever happens to be convenient in a particular place. 


3 ds ALL of these routines accumulate information about condition codes at 
; several key places in a routine. This information is kept in a 

: register (usually R11) that is used to set the final condition codes 
: in the PSW. In order to allow the register to obtain its correct 

3 contents when the routine exits (without further affecting the 

3 condition codes), the condition codes are set from the cog eter 

3 (BISPSW reg) and the register is then restored with a POP 

: instruction, which does not affect condition codes. 


: 3 There are several instances in these routines where it is necessary to 
: determine the difference in length between an input and an output 
string and perform special processing on the excess digits. When the 
anger string is a packed decimal string (it does not matter if the 
packed decimal string is an input string or an output string), it is 
sometimes useful to convert the difference in digits to a byte count. 


There are four different cases that exist. We will divide these cases 
into two + hg of two cases, depending on whether the shorter length is 
even or odd. 


In the pictures that appear below, a blank box indicates a digit in 
the shorter ote ing. A string of three dots in a box indicates a digit 
in the longer string. A string of three stars indicates an unuse 

gigit in a decimal string. The box that contains +/- obviously 
n 


icates the sign nibble in a packed decimal string. 
; (cont.) 
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In general, fhe code must calculate the number of bytes that contain 
the excess digits. Most of the time ine interesting number includes 
complete excess bytes. The excess digit in the high nibble of the 
highest addressed byte (both parts of Case 1) is ignored. 


In three out of four cases, the difference (called R5 from this point 
on) can be simply divided by two to obtain a byte count. In one case 
(Case 2 B), this is not correct. (For example, 3/2 = 1 and we want to 
get a result of 2.) Note, however, that in both parts of Case 2, we 
can add 1 to R5 before we divide by two. In Case 2 B, this causes the 
result to be increased by 1, which is what we want. In Case 2 A 
because the original difference is even, an increment of one before we 
divide by two has no effect on the final result. 


The correct code yy. to distinguish case 2 B from the other three 
cases involves two BLBx instructions. A simpler sequence that 
accomplishes correct results in all four cases when converting a digit 
count to a byte count is something Like 


BLBC Egrathneroaer eer, 108 
10$: ASHL #-1,R5,R5 


where the tones of the shorter string will typically be contained in 
either RO or R2. 


Note that we could also look at both B parts, performing the extra 
INCL instruction when the longer string is even. In case 1 B, this 
increment transforms an even difference to an odd number but does not 
affect the division by two. In case 2 B, the extra increment produces 
the correct result. This option is not used in these routines. 


The two routines for CVTSP and CVTTP need a slightly different number. 
pt want the number of bytes including the byte containing the excess 
high nibble. For Case 2, the above calculation is still valid. For 
Case 1, it is necessary to add one to R5 after the RS is divided by 
two to obtain the correct byte count. 


There is a routine called STRIP_ZEROS that removes high order zeros 
from decimal strings. This routine is not used by all of the routines 
in this module but only by those routines that porters complicated 
calculations on each byte of the input string. For these routines, the 
overhead of kost ing for and discarding leading zeros is less than the 
more costly per byte overhead of these routines. 
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6 1 . SUBTITLE Declarations 
8 te : Include files: 
000 re -NOCROSS ; No cross reference for these 
44 t . ENABLE SUPPRESSION ; No symbol table entries either 
4 49 CMPP3_DEF ; Bit fields in CMPP3 registers 
BOS 50 CMPP4 DEF ; Bit fields in CMPP4 registers 
908 21 MOvP_BEF ; Bit fields in MOVP registers 
0909 3g PACK_DEF 3; Stack usage by exception handler 
44 23 STACR_DEF ; Stack usage of original exception 
441 28 SPSLDEF 3; Define bit fields in PSL 
0000 58 - DISABLE SUPPRESSION ; Turn on symbol table again 
0000 59 - CROSS 3; Cross reference is OK now 
0000 60 
0000 61 ; External declarations 
0000 66 
0000 6 . DISABLE GLOBAL 
0000 64 
0000 65 EXTERNAL - 
0000 66 VAXSREFLECT_FAULT,=- 
0000 67 VAX$ROPRAND 
0000 68 
0000 $68 3; PSECT Declarations: 
0000 70 
4444 4 DEFAULT DISPLACEMENT , WORD 
enag 73 -PSECT _VAXS$CODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 
0000 275 BEGIN_MARK_POINT 
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; The Fol lowing tables are designed to perform fast conversions between 

; numbers in the range 0 to 99 and their decimal equivalents. The tables 
; are used 7 placing the input parameter into a register and then using 
; the contents of that register as an index into the table. 


+ 
Decimal Digits to Binary Number 


The following table is used to convert a packed decimal byte to its binary 
equivalent. 


Packed decimal numbers that contain illegal digits in the low nibble 
convert as if the low nibble contained a zero. That is, the binary number 
will be a multiple of ten. This is done so that this table can be used to 
convert the least significant (highest seyrenaen? byte of a decimal string 


without first masking off the sign ‘‘digi 


Illegal digits in the high nibble produce UNPREDICTABLE results because the 
table does not contain entries to handle these illegal constructs. 


: Binary Equivalent Decimal Digits 


| 
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> 
POOPY Y POOPY SF POOP YP POOP PF FP OOO COCOCOSCO OOOO OOCOOO OOOO OOOOOOoOoOO 
MINI 2 | H#DOODODOOOO OOOO O00 OOO 00000 0900090009 000009 SII 
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DECIMALSPACKED_TO_BINARY_TABLE:: 
09 08 07 06 05 04 03 02 01 00 BYTE 00,01, 02.03, 04,- ; Index ** 

05; 06. 07 ; 08 < 09 7 Meto 8X09 

00 00 00 00 00 90 BYTE 00,00, 00,00, 00,00 ; Illegal decimal digits 
13 12 11 10 OF OE OD OC 0B OA Y os oe oe oe : Index “X10 
5 15.16.17 218 5 19 7 Mto 4x19 

OA OA OA OA OA OA BYTE 10,10, 10,10, 10,10  ; Illegal decimal digits 
1D 1C 1B 1A 19 18 17 16 15 14 ove. 2.7. mee he ; Index 2320 
a. re 29 FS... b+ to “X29 

14 14 14 14 16 14 0 BYTE 20, 20, 20, 20, 20, 20 ILLegal decimal digits 
27 26 25 26 23 22 21 20 IF 1E . = ft os ee : Index *X30 
; 5 g++ Be % . te ones 

1E 1€ 1€ 1€ 1€ 1€ 03 5 we B,zaRenR.- FR, Ri BD : Illegal decimal digits 
31 30 2F 2€ 2D 2C 2B 2A 29 28 004 5 ove 46.0. 422 48. 4 : Index *x40 
Ga 38 45° 46. 47. 48. 49 te ee 

28 28 28 28 28 28 i 0 BYTE 40, 40, 40, 40, 40, 40 ; Illegal decimal digits 
3B 3A 39 38 37 36 35 34 33 32 005 BYTE Se fa ee oe : Index “x50 
Bn 838 a8 + Bk 8S + 8B 8G 2 nto x59 
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32 
45 44 43 42 41 


xC 
4F GE 4D 4C 4B 


46 
59 58 57 56 55 


50 
63 62 61 60 SF 


Sh 


09 08 07 06 05 


19 18 17 16 15 


29 28 27 26 25 


39 38 37 36 35 


49 48 47 46 45 


59 58 57 56 55 


69 68 67 66 65 


54 


64 


32 32 32 
3F 3E 3D 


3c 3C 3C 
49 48 47 


46 46 46 
53 52 51 


50 50 50 
5D 5C 5B 


5A 5A 5A 


03 02 01 


13.12 11 


23 22 21 


33 32 31 


43 42 41 


53 52 51 


63 62 61 


[=] 
> 


PPP PF OOOO OWWOWO NNO AO 
OOooorF YF FPOoorrroorrrocor,r 


a 


SOOCOCCOOCOOOOCOOOCOOOCOOOOOCoOO: 
pepejojolojlojlelelolololeloleolelolololololeolo! 


Sess 


AOOONMMNMOoomm 


0 
0 
0 
0 
0 
0 


movoVTo lo TIIgINoo 


-BYTE 


-BYTE 
-BYTE 


-BYTE 


-BYTE 


The followin 
stored in a 


-BYTE 


-BYTE 


-BYTE 


-BYTE 
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Binary Number 


table is used to do a fast conversion from a binary number 
te to its decimal representation. The table structure assumes 
- Numbers that Lie outside this 


“x05 
“x10 


“x15 ; 


“X35 ° 


“x30 


x35 ° 


“x40 


“x45 ¢ 


“x50 
“x55 


“x6 
“x6 


» 50 


o£. 


- 80 
3 


- 90 


DECIMALSBINARY_TO_PACKED_TABLE:: 
“x00 e 


“x01 
“x06 


“x11 


“x16; 


“156 


“x31 


“x36 | 


“x41 
“X46 


“x51 


* 9x56 ; 


“X61 


; 9X66 ; 
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range produce UNPREDICTABLE results. 


Decimal Equivalents 


1:3 
0:4 


° 


to 99 


“x03 , 
» “x08 , 


“X13 
- “x18 , 


» ah58 ° 


» “X34 
» “x39 


» “X43 
- “X48, 


“x5 
« “HS 


“X63 , 
- “X68 , 


5:73 


“X04 
“x09 


“X14 
“x19 


“X24 
“X29 


“X44 
“X49 


“X54 


* 9x59 


“X64 
“X69 
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; Illegal decimal digits 
; Index “*x60 
: to “x69 
; Illegal decimal digits 
; Index “*x70 
: to “x79 


° 


; Illegal decimal digits 
; Index “x80 
; to “x89 
; Illegal decimal digits 
; Index “x90 
; to “x99 
; Illegal decimal digits 


Decimal Equivalent 


= : O through 9 
- ; 10 through 19 
as ; 20 through 29 
- ; 30 through 39 
- : 40 through 49 
. ; 50 through 59 


- ; 60 through 69 


Me 3 la = VAX-11 Posked 8 Decimal Instruction Fru 7 $6013 4 Oh: 29: 3 en es o V04-00 Page 9 VAX 


Conversion Ta EP=1984 EMULAT.S SVAXDECIML MAR: 1 (6) VO4 
E 

79 78 77 76 75 74 73 72 71 «70 tgs $e -BYTE “X70 , “X71, ants » “Hrs - “tT6 » * ; 70 through 79 

ste 9 "ETS «.°Ere « “EET « “Etec “RIF : 
89 88 87 86 85 84 83 82 81 80 ita 95 TT “Ree . “861 . “Mee « “KOS « “OS , @ ; 80 through 89 

ro ode $09 “x85 , *x86 , *X87 , *xX8B , *xX89 : 
99 98 97 96 95 94 93 92 91 90 OOFA 98 -BYTE “x90 , *X91 , “X92 , “X93 , “X94, = ; 90 through 99 

A ins “x95 , *x96 , “X97 , *X9B , “X99 : 
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SUBTITLE VAXSCMPPx = Compare Packed 


Functional Description: 


In 3 operand format, the source 1 string specified by the length and 
source 1 address operands is compared to the source 2 string specified 
by the length and source 2 address operands. The only action is to 
affect the condition codes. 


In 4 operand format, the source 1 string specified by the source 1 
Length and source { address operands is compared to the source 2 string 
specified by the source 2 length and source 2 address operands. The 
only action is to affect the condition codes. 

Input Parameters: 


Entry at VAXSCMPP3 


RO - Len.rw Length of either decimal ete tng 
R1 = srciaddr.ab Address of first packed decimal string 
R3 - src2addr.ab Address of second packed decimal string 


Entry at VAXSCMPP4 


RO - srcilen.rw Length of first packed decimal string 

R1 = srciaddr.ab Address of first packed decimal string 
Re - srcélen.rw Length of second packed decimal string 
R35 = srcdaddr.ab Address of second packed decimal string 


Output Parameters: 


RO = 0 
R1 = Address of the byte containing the most significant digit of 
the first source string 


R2 = 
RS = Address of the byte containing the most significant digit of 
the second source string 


2 


Condition Codes: 


N <- first source string LSS second source string 
2 <- first source string EQL second source string 


FWP 9 ODNAUE WIN $$ 9 ODNOAU EWN O OONA UE WN OOO NAUE Win 


EEE WWWWWNI WN WIIROPOPOPOPONPPOPPN = OOOO 


oS S99 9S 9 O 8 88 et NNN > 
S> 5 &~ 8 8 SS BB. BBE EE EEE EEE ES BEES ESE EEE EEE EEE EEE EEE EES 


a ce ce cd a ae a ca a ca ee ea a ae ee a a ad ad ea a ad ed ad ad a ad ed ea ad ad ad ed ad ad ad od a ed a a ad ed ed a a ad ed ea a ad aD ad dD 
SOOOCOOCOCOCOCOCOOCOOOSOOOOCOSCOSOOSOSOOOOOCSCOSCOOCOOOOOCOO OOOO OOOOOOOCOOOOOOoOO 


CSOOOOCOOOCOSOCOCOOCOOSOCCOCOOCOOCOCOOSOCOSSSCSOOCOOOSOOOCOOOOOOOOoOOoOO 


V <- 
445 C <- 
23 Register Usage: | 
‘8 This routine uses RO through R5. The condition codes are recorded 
29 in R2 as the routine executes. | 
5 Algorithm: 
ag ; Als | 
54 TBS 
7 . SUBTITLE Data Declarations for CMPP3 and CMPP4 
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i* 


; Define some bit fields that allow recording the presence of minus signs 
_in either or both of the source strings. 


SDEFINI CMPPx_FLAGS 
_VIELD ere ate 
MINUS, .M>,- 
<ehea- =RINUS. :PD ae 


SDEFEND CMPPx_FLAGS 


ENABLE LOCAL_BLOCK 
VAXSCMPP3: : 
- SS = MOVZWL RO,R2 : Make two source lengths equal 
0B il BRB 10$ ; Only make one Length check 
VAXSCMPP4:: 
ROPRAND “peck Re 3 Insure that R2 LEQU 31 
10$: ROPRAND_CHECK RO ; Insure that RO LEQU 31 
O43F 8F 6B PUSHR “#*M<RO,R1,R2,R3, R4, R5,R10> ; Save some registers 
ESTABLISH_HANDLER 3; Store address cf access 
DECIMAL_ACCVIO : violation handler 
: Get sign of first input string 
54 D4 ; Assume both strings contain ‘'+"’ 


CLRL RG 
> 68 a OH EXT at #4,R0, iB Convert digit count to byte count 


ee a ee ad ed od ad od = TOO OO OOO SS 


PUPP BB BE EB BE WWIWWAIMIIWIWIDININININPININININP — ~QODOOCOOCOCOCOOCOOoOoo 
=O ODNAU EWN 0 OONAU ES WIN 0 OONOUS Win O0 


OOCCOCCCOCOCOOOOOOSOCGOOOOSCOCOOOOCOOOSooOOooo 


DODO OOOO PB PB VMN PIPININPININPININININOE OO NUNN FOODS LFF FOOCSCCCOCO LS LLL ESE 


MARK_POINT {Mbp acev 19 

55 6145 FO 8F BICB3 #°B11110000 (R1) R5),R5 ; RS contains ‘'sign’’ digit 
1 49 CASE R5 TYPE=B,LIMIT=410,<- : Pispatcd on jf 1a. digi 
132 49 30$,- ; 10 => sign is "+" 
1 494 208. - 3 11 => sign ii: - 
1 495 0$,- 3 \¢ => sign is ‘'+"' 
1 49 0$,- ; 13 => sign is ‘'-"" 
1 49 0$,- : 14 => sign is ‘"+"' 
1 498 0$,- ; 15 => sign is ‘'+' 
145 $00 : 

54 01 C8 : 01 20$: BISL2 #CMPPx_M_SRC1_MINUS,R4 ; Remember that srcl contains ‘'="’ 

' 08 ; Now get sign of second input string 

SS BW a HoH ww 05 308: EXTZV. #1, #4,R2,R5 ; Convert digit count to byte count 
1 06 MARK POINT EMP Px nSSENE9 as - 

55 6345 FO 8F 8B Q1 BICB3 eg LL 00, (R3)CR ; RS contains “sign digit 
1 3 CASE 86 B,LIMIT=#10,<- ; Dispatch on 2a. mb 
1 9 "et ° 1 sign oa or] 
1 10 40$,- : 11s sion i: ra 
1 11 50$,- 3 \¢ => sign is ‘'+" 
1 \ 40$,- : 13 => sign is ‘-"' 
1 1 2 $,- ; 14 => sign is ‘+ 
1 14 $,- ; 15 => sign is ‘*" 
1 15 > 


~~ 


04-00 Page 
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r 
Data Declarations for CMPPS and CMPP SEP- EMULAT.SRCIJVA 


1 1 
54 02 C8 16 13 40S: BISL2 #CMPPx_M_SRC2_MINUS,R4 ; Remember that src2 contains ‘'="’ 
1 i§ 3 At pris potnt. we have eytornined the signs of both input Strings, If the 
1 0 ; strings have different signs, then the comparison is done except for the 
16 1 ; extraordinary case of comparing a minus zero to a plus zero. If both signs 
19 § 3; are the same, then a digit-by-digit comparison is required. 
i 4 508: CASE R4 LIMIT=#0,TYPE=B,<- =; Btepeceh on combination of signs 
16 5 7 :; Both signs are ‘'+’' 
16 § MINUS_ZERO_CHECK,=- ; Signs are different 
1 B ANUS .SERO_CHECK © 3; Signs are different 
1 8 60$,- 3; Both signs are ‘'-"' 
Be 
Bige é 1 ; Both strings have the same sign. If the strings have different lengths, then 
16F § 3; the excess digits in the Longer string are checked for nonzero because that 
the 2 ? 3 eliminates the need for further comparison. 
nn fF FB & O16 535 60$: SUBL3 RO,R2,R5 : Get difference in lengths 
_. 4 | ae | § BEQL EQUAL_LENGTH : Strings have the same size 
15 19 Bite af BLSS SRC2_SHORTER : src2 is shorter than srcl 
0177 236 ; This code executes when srci is shorter than src2. That is, RO LSSU R2. 
0177 79 ; The large comment at the beginning of this module explains the need for the 
giz7 ‘3 ; INCL R5 instruction when RO, the length of the shorter string, is odd. 
0177 248 SRC1_SHORTER: 
0250 €9 0177 544 BLBC RO,70$ ; Skip adjustment if RO is even 
55 06 O17A 545 INCL R 3; Adjust eters difference if RO is odd 
55 04 01 #2xEF O17C 546 70S: EXTZV #1,44,R5,R5 3; Convert d git count to byte count 
aS big) 58 BEQL EQUAL_LENGTH 3; Skip loop if no entire bytes in excess 
O183 49 MARK_POINT CMPPx_ACCVIO 
83 95 Q1 239 80$: TSTB + 3; Test excess src2 digits for nonzero 
55 ig 0185 51 BNEQ SRC1_SMALLER 3; ALL done if nonzero. srci LSS src2 
F955 —SsiéF 4 i 226 SOBGTR R5,80$ : Test for end of loop 
19 #11 a " $34 BRB EQUAL_LENGTH ; Enter loop that performs comparison 
0 C 2$ 3; This code executes when src2 is shorter than srci. That is, R2 LSSU RO. 
18C 57 ; The large comment at the beginning of this module explains the need for the 
: : 28 ; INCL RS instruction when R2, the [Length of the shorter string, is odd. 
18C 560 SRC2_SHORTER: 
50 2¢ DO 018C 61 MOVL R2,RO ; RO contains number of remaining digits 
55 65 cf 18F 6 MNEGL R5,R5 3; Make difference positive 
02 3 E 1 6 BLBC ~ ; Skip adjustment if R2 is even 
3 D6 019 64 INCL Rg ; Adjust digit difference if R2 is odd 
55 04 1 2 65 90$: EXTZV «= -#1,84,R5,R5 ; Convert digit count to byte count 
07 =«+13 136 66 BEQL EQUAL _LENGTH : Skip loop if no entire bytes in excess 
19E $8 MARK_POINT CMPPx_ACCVIO 
1 95 019 8 100$:  TSTB (R1)+ ; Test excess srcl digits for nonzero 
3 1g 1A 0 BNEQ SRC2 SOALLER 3; ALL done if nonzero. src2 LSS srcl 
fg F 4h, 4} SOBGTR R5,100$ ; Test for end of loop 
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73; ALL excess gigits are zero. We must now perform a digit-by-digit comparison 
74 ; of the remain "9 digits in the two strings. RO contains the remaining number 
75 ; of digits in either string. 


77 EQUAL_LENGTH: 
EXTZV #1,84.R0.R0 3 Convert digit count to byte count 


—_ 
Pd 


50 50 04 01 4 


$ 
i 
08 7 BEQL ; ALL done if no digits remain 
MARK _POINT “Sh meat 
83 1 91 110$:  CMPB (R1)+,(R3)+ ; Compare next two digits 
1 ig BNEQ NOT FQUAL 3; Comparison complete if not equal 
F850 «OF SOBGTR RO,T10$ ; Test for end of loop 
; Compare least significant digit in source and destination strings 
MARK_POINT CMPPx_ACCVIO 
51 61 OF 88 120$: B1CB3 #*800001111,(R1),R1 ; Strip sign from last srci digit 
MARK_POINT CMPPx Actvio 
53 63 OF 88 B1CcB3 #,bog0O1T 11, CRS) oR ; Strip sign from Last src2 digit 
53 51 =O CMPB R1,R : Compare least significant digits 
fe BNEQ NOT_EQUAL 


; At this point, all tests have been exhausted and the two strings have 
; been shown to be equal. Set the Z-bit, clear the remaining condition 
; codes, and restore saved registers. 


SRC1_EQL_SRC2: 
MOVZBL #PSL$M_Z,R2 ; Set condition codes for srcl EQL src2 


3; This is the common exit path. R2 contains the appropriate settings for the 
3 N- and Z-bits. There is no other expected input at this point. 


52. 04 9A 


CMPPx_EXIT: 
6—E 04 CLRL (SP) ; Set saved RO to 0 
08 AE D4 CLRL 8(SP) 3; Set saved R2 to 0 
OF 89 BICPSW #<PSLSM_N!PSLSM_Z!PSLSM_V!PSLSM_C> : Start with clean slate 
52 BB BISP -' Set N= and Z-bits as appropriate 
043F 8F BA POPR #*°M<RO,R1,R2,R3,R4,R5,R10> : Restore saved registers 
; Return 


The following code executes if specific digits in the two strings have 
tested not equal. Separate pieces of code are selected for the two 
different cases of not equal. Note that unsigned comparisons are required 
here because the decimal digits ‘'8'’ and ‘'9"’, when appearing in the high 
nibble, can cause the sign bit to be set. 


NOT_EQUAL: 


od dd ad md td = SI OHOODOOOOOOOOOOOOOOONDO 


SVCVCVCVC SSS SSS STS STFC GCG AOONOOOOOOOOOOOOOoOWWWWVIOwIIIO>>>r>Y yr YY YY YP 
WOO NOANE WN 9S OONAUE WIN OOD NAME WIN $$ O ODNAUES WN (OO OONAUE WN O 


me ee ed ed ed SS ss = 3 = 2 8 = 2 9) 2 1 ss 2 9 2s 1s 4 
WOR FREES SPPNMNNMNNNN 9 DW ORL SAREE £3 SS SHO DOE SRLS NOOOY 


DEAE AAAA AA AA AA AAA AA AAAAAAAAA AA MIIMNIVIVIVIG 


o 
“ 
SGOOOCOCOCOOOOOOOOCOCOOCOCOOOCOOOCOOOCOOCOSoOOOOCoOOoO 


08 =F BLSSU SRC1_SMALLER ; Branch if srcl is smaller than src2 
3; The src2 string has a smaller magnitude than the srcl string. The setting | 
3: of the signs determines how this transforms to a signed comparison. That is, 
3; if both input signs are minus, then reverse the sense of the comparison. 
SRC2_SMALLER: | 
08 54 O01 €0 BBS #CMPPx_V_SRC2_MINUS,R4,SRC1_SMALLER_REALLY 
; The SRC2 string has been determined to be smaller that the SRC1 string 
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? SRC2_SMALLER_REALLY 
CLRL” RR 


1D 
1D 
3g D4 01D § 3; Clear both N- and Z-bits 
E 11 108 tH BRB CMPPx_EXIT ; Join common exit code 
1DC 635 ; The srci string has a smaller magnitude than the src2 string. The setting 
IDC = 636 & Of the signs determines how this transforms to a signed comparison. That is, 
ie ? 5 ; if both input signs are minus, then reverse the sense of the comparison. 
1DC 639 SRC1_SMALLER: 
F854 00 €0 1p 640 BBS #CMPPx_V_SRC1_MINUS,R4,SRC2_SMALLER_REALLY 
if ete ; The srci string has been determined to be smaller that the src2 string 
1E0 644 SRC1_SMALLER_REALLY: 
52 08 90 OTE 645 M #PSLSM_N,R2 3; Clear both Ne and Z-bits 
DF 611 iE 928 BRB CMPPx_EXiT ; Join common exit code 
pie? 648 ; The following code executes if the two input strings have different 
1E 649 ; signs. We need to determine if a comparison between plus zero and minus 
Bie? 650 ; zero is being made, because such a comparison should test equal. We scan 
1E5 651; first one string and then the other. If we find a nonzero digit anywhere 
QO1E5 $36 ; along the wer we immediately exit this test and set the final condition 
O1E5 6535 ; codes such that the ‘'="’ ptr ing is smaller than the ‘+’’ string. If we 
BiEe 654 ; exhaust both strings without finding a nonzero digit, then we report 
1E5 655 ; that the two strings are equal. 
O1E5 656 
O1E5 657 MINUS_ZERO_CHECK: 
50 50 04 O01 EF OQO1E5 658 EXTZV -#1,44,R0,RO ; Convert srci digit count to byte count 
07 «13 QiEA 699 BEQL «=s«+170$ : Skip loop if only single digit 
pice 661 MARK_POINT CMPPx_ACCVIO 
81 95 QO1EC 662 160$: TSTB (R1)+ ; Test next byte for nonzero 
1D ig O1E 66 BNEQ CMPPx _NOT_ZERO ; Exit loop if nonzero 
F9 50. Ss*éF ae $68 SOBGTR RO,160$ ; Test for end of loop 
me 666 MARK_POINT CMPPx_ACCVIO 
61 FO 8F 93 OIF 667 170$: BITB #°B11110000, (R1) : Test least significant digit 
4 «(12 OF? 668 BNEQ § CMPPx_NOT_ZERO : Exit if this digit is not zero 
4 679 ; ALL digits in srcl are zero. Now we must look for nonzero digits in src2. 
52 52 046 01 #4=EF OQ1F9 676 EXTZV #1,#4,R2,R2 3; Convert src2 digit count to byte count 
07 «13 IF 673 BEQL ©: 190$ : Skip loop if only single digit 
675 MARK_POINT CMPPx_ACCVIO 
3.06 9S 978 180$:  TSTB (R3)+ ; Test next byte for nonzero 
9 ig 67 BNEQ CMPPx _NOT_ZERO ; Exit loop if nonzero 
F9 52 —SOéF ; of8 SOBGTR R2,180$ ; Test for end of loop 
7 oe MARK _POINT err ACCVIO 
63 FO 8F 3 7 681 1908: BITB #°B11110000, (R3) 3; Test least significant digit 
B41 : ° § BEQL SRC1_EQL_SRC2 :; Branch if two strings are equal 
D ? 4 ; At least one of the two input strings contains at least one nonzero digit. 
D 5 ; That knowledge is sufficient to determine the result of the comparison 
D 686 ; based simply on the two (necessarily different) signs of the input strings. 


pascaininnenicassaiiaseniianel — -) 
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» SUBTITLE VAXSMOVP = Move Packed 
Functional Description: 


VAXSDEC IMAL - VA 
v04- 


‘vo 
o 
o 
= 


SSN SIO OOOO s 


~o— 
SS  QOODTOOOOCOOOVOOOOO <8 


i 

> 
= 
S& 
oer 
<— 


The destination strin goa? hy by the length and destination address 
operands is replace y the source string specified by the length and 
source address operands. 


Input Parameters: 


RO - Len.rw Length of input and output decimal strings 

R} - srcaddr.ab Address of input packed decimal string 

R3 = dstaddr.ab Address of output packed decimal string 

PSL<C> Contains setting of C-bit when MOVP executed 
Output Parameters: 

RO = 0 

R1 = Address of byte containing most significant digit of 

a2 « the source string 

R3 = Address of byte containing most significant digit of 


the destination string 
Condition Codes: 
N <= destination string LSS 0 
ss geet tant sen string EQL 0 
C <-C 3; Note that C-bit is preserved! 
Register Usage: 


This routine uses RO through R3. The condition codes are recorded 
in R2 as the routine executes. 


Notes: 


The initial value of the C-bit must be captured (saved in R2) before 
any instructions execute that alter the C-bit. 


Bete Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Se Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Sse Se Se Sete Se 


WR 9S OONAUS WN HS OD NAME WN OS ODNAUE WN OO ODNOUE WN SO OONOUS 


SQN NNN NNN 


LPP nononononononononyd 


VAXSMOVP: : 
52 oC MOVPSL R2 ; Save initial PSL (to preserve C-bit) 
ASSUME MOVP_B_STATE EQ 2 ; Make sure that FPD bit is in RO<23:16> 
0550 14 €1 BBC #<MOVP_V_FPD + 16>,R0,58 : Branch if first time 
10 =F 74 EXTZV #<MOVP_V_SAVED_PSW + {6>,- 3; Otherwise, replace condition 
52 50 04 ee #MOVP_S_SAVED_PSwW,RO.R 3 codes with previous settings 
reg 5$: ROPRAND_CHECK RO ; Insure that RO LEQU 31 


74 
re ; Save the starting addresses of the input and output strings in addition to 
4 3; the digst count operand (initial RO contents.) Store a place holder for 

3; save . 


SOOOOOCOSSOOOOOCOOCOOOOCOCOO OOOO OOCOOOOSCOCO COCO OOOOOOOOOOOOOOOOOOoOO 
WDODODOMMD OVI NWN NINA AI AINA ANIA AIAN AAAI AAAI NI 


PIR DPIPIPOPIPPIPIPIPOPIPIPININIPONININININININIPINININIPYNIPIPIPIAIPIPIPIAIPNIPIPIPUPIPMNPUIAIMPUNPIPPIPIPIPIPINIPYD 


RONOAING a a hh = ss a a os — ss ss —) ss ss 2 2 9 2s ss 2 2 9 2 2 2 


—mnmwn 
Wwr"o 


UPWOo 


"CoO 


WNIWNIWINIWInonornoro 


“NNN 
SANS 


ee ee | 
OOONA UL WN —"OVOOnou 


> 


WOOOOUIWNT THT > > > FF UINVOM OOOO OOOVOOWMMMO INITIO OO 
+O OO SO O09 00 Cd Cd CO CD CD CD CD CD 
wr 


NNN NNNNO OA AMM ee REP PPR RRS 


o 


PRP QRIPIPDPPDNIPYINIPINIPINININININIPINIPININININIPIPIPINPIPIPIPININPININIPIPIPIPIPIPIPIPUPIPUPIPOPIPUNINIPYNNYD 


SOOOCOCOCOSOOCOCOCOCOOOCOOCOOSOOSOSSOSOOOSOSOOOSOOOCOOOOOOOOOOOOOO 


GooocDco—~y 
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10$: 


20$: 


; The Last byte must be processed in a special way. The digit must be checked 
for nonzero because that affects the condition codes. The sign must be 

; transformed into the preferred form. The N-bit must be set if the input 

is negative, but cleared in the case of negative zero. 


40$: 


Page 
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PUSHR #*M<RO,R1,R2,R3,R10> 3; Save initial register contents 

ESTABLISH_HANDLER ad 3; Store address of access 
DECIMAL_ACCVIO : violation handler 

INSV #<PSLSM_Za-1>,41,43,R2 ; Set Z-bit. Clear N- and V-bits. 

EXTZV #1,#4,R0,R0 3; Convert orgie count to byte count 

BEQL 30$ ; Skip loop if zero or one digit 

MARK_POINT MOVP_ACCVIO 

MOVB (R1)+,(R3)+ ; Move next two digits 

BEQ 3 Leave Z-bit alone if both zero 

BICB #PSLSM_Z,R2 ; Otherwise, clear saved Z-bit 


SOBGTR RO,10$ Check for end of loop 


MARK_POINT MOVP_ACCVIO 

MOVB (R1),RO ; Get Last input byte (R1 now scratch) 
BITB #*811110000,R0 : Is digit nonzero? 

BEQL 40$ 3; Branch if zero 

BICB #PSLSM ; R2 3; Otherwise, clear saved Z-bit 

BICB3 #°B111T0000,R0,R1 : Sign ‘digit’ to R1 


3; Assume that the sign is ‘'t’’. If the input sign is minus, one at che several 
o'"', 


; fixups that must be done is to change the ou 


: Input sign is 
50$: 


3 Input 


60$: 


put sign from ‘'+"' 


INSV #12,#0,84 


RO 12 is preferred plus sign 
CASE —«R1, LIME T=#10, TYPE=B, <- 4 P 9 


D spateh on sign type 


: Di 

60$,- : 10 

50$,- : 11> - 

60$,- ; \¢ => + 

50$,- : 13 = - 

60$,- 3 14 => ¢ 

60$,- 3; 15 => + 

> 
BBS #PSL$V_Z,R2,60$ ; Treat as ‘+’ if negative zero 
INCL RO 3 13 t¢6 preferred minus sign 
B1SB #PSLSM_N,R2 ; Set N-bit 
sign is *'+’’ or input is negative zero. Nothing special to do. 
MARK_POINT MOVP_ACCVIO 
MOVB RO, (R3) ; Move modified final digit 
CLRL (SP) ; RO and R2 must be zero on output 
CLRL 8(SP) ; so clear saved RO and R2 
BICPSW #<PSLSM_N!PSLSM_Z!PSLSM_V!PSLSM_C> ; Clear all codes 
BISPSW R2 ; Reset codes as epereeriate 
POPR #*M<RO,R1,R2,R3,R10> ; Restore saved registers 
RSB ; Return 


~= 
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» SUBTITLE Routine to Strip Leading Zeros from Decimal String | 
Functional Description: 

| 


coco CD 
woo 


DOOODOVO OOOO OO OODOOVOOODODOOOODOVODOODOOOVOODODOODODODOODOVODOOOOVOODOOOOOODO 


This routine strips leading (high-order) zeros from a packed decimal 
string. The routine exists based on two assumptions. 


1. Many of the decimal strings that are used in packed decimal 
operations have several leading zeros. 


2. The operations that are performed on a byte Senta ining a * 

on o 5 
routine and any special end processing that occurs in the various 
VAX$xxxxxx routines when a string is exhausted. 


decimal pe ips are more complicated that the combinat 


This routine exists as a performance enhancement. As such, it can only 
succeed if it is extremely efficient. It does not attempt to be 
reerene in squeezing every last zero out of a string. It eliminates 
only entire arson that contain two zero digits, It does not look for a 
leading zero in the high order nibble of a string of odd length. 

The routine also assumes that the input decimal strings are well 
formed. If an even-length decimal string does not have a zero in its 
unused high order nibble, then no Stripping takes place, even though 
the underlying VAX$xxxxxx routine will work correctly. 


(The comment in the next four Lines is preserved for its historical 


Finally, there is no explicit test for the end of the string. The 
routine assumes that the low order byte, the one that contains the 
sign, is not ogues to zero. This can cause rather strange behavior 
(read UNPREDICTABLE) for poorly formed decimal strings. 


(The following comment describes the revised treatment of certain forms 
of illegal packed decimal strings.) 


Although an end-of-string test is not required for well formed packed 
decimal strings, it turns out that some layered products create packed 
decimal data on the fly consisting of so many bytes Centpinnng zero. In 
other words, the sign nibble contains zero. -vious implementations of 
the VAX architecture have treated these strings as representations of 
packed decimal zero. 


The BLEQ 30$ instructions that exist in the following two loops detect 
these strings and treat them as strings with a digit count of one. 
(The digit itself is zero.) Whether this string is treated as +0 or -0 
is determined by the caller of this routine. That much UNPREDICTABLE 
behavior remains in the treatment of these illegal strings. 


(End of revised comment) 
Input and Output Parameters: 


OOCOSOCOCOOOSOOOCOOCOOCOO SOOO OOCOCOCOOSSOOOCSOOOOCOOCOOOOOOOOOOOOOOO 
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000000900 Go 69 G9 Co Cd Cd Cd 09 Cd Od C9 09 OD Od CS 09 Cd Od OD 09 Cd CD Cd G9 Cd OD Od OD CD C9 GD OD CO 09 CD CD CD CD GD CD. 0D 00 OD OD CO OD OD CD: 

PRR. DRD Sr & Se BS BBE AAAI NININIINIAIRIPIPOPOPUNINPYPINID) 2 OS "OO 
PAR 9 ODONOA NE WWIN 9 OO NAME WIN SO OD NOAM WIN 2 CO ODNAUE WN OWOONOUS WI O00 
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There are really two identical but separate routines here. One is | 
used when the input gee tant string descriptor is in RO and R1. The 
other is used when R2 and R35 describe the decimal string. Note that 
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vars CIMAL = VAX-11 Packed Decimal Instruction Emul 16-SEP- 
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1 

1 
Mg have already ger formed the reserved operand checks so that RO (or 
R2) is guaranteed LEQU 31 


oa 
w 


If the high order digit of an initially even length string is zero, 
then the tgit count (RO or R2) is reduced by one. For all other 
cg igit count is reduced by two as an entire byte of zeros 


Input Parameters (for entry at DECIMALSSTRIP_ZEROS_RO_R1): 


RO<4:0> = Len.rw Length of input decimal string 
R1 - addr.ab Address of input packed decimal string 


Output Parameters (for entry at DECIMALSSTRIP_ZEROS_RO_R1): 
R1 Advanced to first nonzero byte in string 
RO Reduced accordingly (Note that if RO is altered at all, 
then RO is always ODD on exit.) 


Input Parameters (for entry at DECIMALSSTRIP_ZEROS_R2_R3): 


OOOOoo 
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R2<4:0> = Len.rw Length of input decimal string 
R - addr.ab Address of input packed decimal string 
Output Parameters (for entry at DECIMALSSTRIP_ZEROS_R2_R3): 
R3 Advanced to first nonzero oyte in string 
R2 Reduced ype bh | (Note that if R2 is altered at all, 
then R2 is always ODD on exit.) 


Note: 


Although these routines can generate access violations, there is no 
MARK POINT here because these routines can be called from other 
modules (and are not called by the routines in this module). The PC 
check is made based on the return PC from this subroutine rather than 
on the PC of the instruction that accessed the inaccessible address. 


DO000 00000 000000000009 09 0909 09 SIN NIN SINS NINO OO 
OOWNAUS WN O ODONAUES WR 0 OONOAUS WN OOONO 
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904 ; This routine is used when the decimal string is described by RO (digit 
905 ; count) and R1 (string address). 
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906 
907 DECIMALSSTRIP_ZEROS_RO_R1:: pak 
06 50 8 908 BLBS RO,TO : Skip first check if RO starts out ODD 
81 9 909 TSTB ss (RI) + : Is first byte zero? 
OD Is 910 BNEQ 20$ ; ALL done if not : 
50 oD $f DECL RO 3; Skip leading zero digit (RO NEQU 0) 
81 95 318 10$: TSTB (R1)+ ; Is next byte zero? 
oY 914 BNEQ 20$ ; ALL done if not 
50 bg C 915 SUBL if RO ; Decrease digit count by Rca 
0 1 319 BLEQ 30$ ; We passed the end of the string 
>) «OTT oe a BRB 10$ 3 ee. and charge on 
i) ie 9D 319 20$: DECL R1 ; Back up R1 to Last nonzero byte 
05 +4 359 RSB 
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50 0 £0 A § 30$: ADOL Lf RO ; Undo Last RO modification 
F ~ 7 BRB 20§ 3 «ee and take common exit 
A 5 ; This routine_is used when the decimal string is described by R2 (digit | 
~ 4 § 3; count) and R3 (string address). 
A 9 8 DECIMALSSTRIP_ZEROS_R2_R3:: 
06 33 33 A % BLBS ~ R2,T0 : Skip first check if R2 starts out ODD 
8 AB 930 TSTB tes) : Is first b te. zero? 
OD ie AA 93) BNEQ 20$ 3; ALL done i 
52D a 4 ¢ DECL Re ; Skip leading. sere digit (R2 NEQU 0) 
83 95 a $34 10$: TSTB (R3)+ ; Is next byte zero? 
07 12 028 935 BNEQ 20$ 3; ALL done if not 
52 bg C2 0 Be 339 SUBL #2,R2 ; Decrease digit count by 2 
0 15 028 937 BLEQ 30$ ; We passed the end of the string 
i Bee 8 af 336 BRB 10$ 3 ee. and charge on 
CUS $589 940 20$: DECL R3 ; Back up R3 to Last nonzero byte 
05 O2BB 941 RSB 
O2BC 94 
52 02 CO O2BC 9 $ 
F8 11 O2BF 944 BRB 20$ 3 «ee and take common exit 
02C1 945 


30$: ADDL #2,R2 ; Undo Last R2 modification 
| 
| 
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Decimal Instruction Emul 19-360= 1388 Oht? 759 VAX/VMS Macro 
-SEP=1984 00:45:12 EMULAT.S 


. SUBTITLE DECIMAL _ROPRAND 
: Functional Description: 

: This routine receives control when a digit count red ig! than 31 
: is detected. The exception is architecturally defined as an 

; abort so there is no need to store intermediate state. Because 
: all of the routines in this module check for legal digit counts 
s before saving any registers, this routine simply passes control 
3 to VAXSROPRAND. 

: Input Parameters: 

: O(SP) = Return PC from VAX$xxxxxx routine 
: Output Parameters: 


O(SP) = Offset in packed register array to delta PC byte 
4(SP) = Return PC from VAX$xxxxxx routine 


; Implicit Output: 
This routine passes control to VAXSROPRAND where further 
exception processing takes place. 

ASSUME CMPP3_B_DELTA_PC EQ MOVP_B_ 
ASSUME CMPP4_B_DELTA_PC EQ MOVP_B_ 


DECIMAL _ROPRAND : 
PUSHL #MOVP 


DELTA_PC 
DELTA~PC 


DELTA_PC ; Store offset to delta PC byte 


; Pass control along 


B 
BRw VAXSROPRAND 


ro V04-00 Page ¢ 
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- SUBTITLE DECIMAL_ACCVIO = Reflect an Access Violation 
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VAX IMAL = VAX- 
vive Sty DECIMA 
Functional Description: 


This routine receives control when an access violation occurs while 
executing within the emulator routines for CMPP5, CMPP4 or MOVP. 


The routine header for ASHP_ACCVIO in module VAXSASHP contains a 
detailed description of access violation handling for the decimal 
string instructions. 

Input Parameters: 


See routine ASHP_ACCVIO in module VAX$ASHP 
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Output Parameters: 
See routine ASHP_ACCVIO in module VAXSASHP 
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C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
02C 
02C 
02Cc 
8 C 
C 
02C 998 ;- 
02C 999 
02C6 1000 DECIMAL_ACCVIO: 
52 D4 O02C6 1001 CLRL : Initialize the counter 
FD34 CF QF O2C 1906 PUSHAB MODULE_BASE ; Store base address of this module 
51 8—& (C2 8 ‘ IRR? SUBL2 (SP)+,R1 3; Get PC relative to this base 
OOOO'CF42 51 £481 O2CF 1005 10$: CMPW R1,PC_TABLE_BASECR2] 3; Is this the right PC? 
07 13 02D5 1006 BEQL ; Exit loop if true 
F4 52 OE Fe 8 4 18 AOBLSS #TABLE_SIZE,R2,10$ 3; Do the entire table 
02DB 1009 ; If we drop through the Stepetching based on PC, then the exception is not 
8 + 119 3 one that we want to back up. We simply reflect the exception to the user. 
OF BA 02D 191¢ 20S: POPR #*M<RO,R1,R2,R3> ; Restore saved registers 
05 8 . Iola RSB ; Return to exception dispatcher 
O2DE 1015 ; The exception PC matched one of the entries in our PC table. R2 contains 
O2DE 1016 ; the index into both the PC table and the handler table. R1 has served 
8 . ie ; its purpose and can be used as a scratch register. 
51 QO00'CF42 3C O2DE 1019 30S: MOVZWL HANDLER_TABLE_BASECR2],R1 : Get the offset to the handler 
FD17 CF41. = 17 8 : 18 9 JmP MODULE _BASECRT) : Pass control to the handler 
02E9 10 ¢ : In all of the instruction-specific routines, the state of the stack 
8 E9 1023 ; will be shown as it was when the exception occurred. ALL offsets will 
E9 1024 ; be pictured relative to RO. 


we 
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» SUBTITLE Context=-Specific Access Violation Handling for VAX$CMPPx 


Functional Description: 


It is trivial to back out CMPP3 and CMPP4 because neither of these 
routines uses any stack space (other than saved register space). The 
pe reason that this routine does not use the common 
VAXSDECIMAL_ACCVIO exit path is that fewer registers are saved by 
these two routines than are saved by the typical packed decimal 
emulation routine. 


| 
a 
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Input Parameters: 
RO - Address of top of stack when access violation occurred 


Saved RO on entry to VAXSCMPPx 
Saved R1 


eeeecenesn 
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Saved R10 
Return PC from VAXSCMPPx routine 


Saved RO (restored by VAXS$HANDLER) 
Saved R1 
Saved R 
Saved R 


Output Parameters: 


—OooO nrrvn——CcoOOo 
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RO is advanced over saved register array as the registers are restored. 
RO ends up pointing at the return PC. 


R1 contains the value of delta PC for all of the routines that 
yee this common code path. The FPD and ACCVIO bits are both set 
n 
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Ri. 
6 00(RO) = Return PC from VAXSCMPPx routine 
6 O(SP) - Value of RO on entry to VAXSCMPPx 
4(SP) = Value of R1 on entry to VAXSCMPPx 
O8(SP) = Value of R2 on entry to VAXSCMPPx 
12(SP) = Value of R3 on entry to VAXSCMPPx 
4 R4, RS, and R10 are restored to their values on entry to VAXSCMPPx. 
7 
a » ENABLE LOCAL _BLOCK 
76 CMPPx_ACCVIO:: 
80 7D 7 MOVQ (RO)+,PACK_L_SAVED_RO(SP) ; ‘'Restore’’ RO and R1 
08 AE 80 7D 4 MOVQ (RO)+,PACK_L_SAVED_R2(SP) ; “‘Restore’’ R2 and R 
80 7D 7 mMOVva (RO)+,R4 ; Really restore R4 and R5 


— 


a a a a a ee a a ee ee ee ee ee ee a a ed od oo ee OOOO 
cocDoD 
mo 


COOCOCOCOCOOCOOCOCOCOCSOOSOOOOOOOOOOOOOCOSOOOOOOOOOOOOOOOOOO 


TWH TH HMMM MMMM MMMM MMMM MMMM MMMM MMM MM Mmmm mmm mmm mmmmm mm mmm mem cmenycniecvyevweyy 
WWOM OOOO DODOODODOODOODOOODOODOOOVODOODOODOOVODODODODDODOOOWODODOODOOODOOVOOOOOO 


CSOOOOOOOOCOCOCOOCOCOOCOOCOOOOOOSOOSOOCOOOSOOCOCOOCOOOOOOOOOCOOOOOOoOO 


RIP IPIPIPIMPINPNINIPIPPINIPININININIPINIPIPYAPIPIPINPININININPYAPINYPINPPUNINPIPYNY 


; The Last two instructions can be shared with MOVP_ACCVIO, provided that 
; the following assumptions hold. 


G 
voeb60 Context-Specific access Violet eronseatt CSERCIRBE QUEEOEED VARAMME.SRese¥RECOR mansr "28" von 


F 3 

re | 4 ASSUME CWPPS_B_DELTAPC EQ MOVP_BDELTA_PC 

FS ASSUME CMPP4"B-DELTA-PC EQ MOVr~B~DELTA-PC 
op 11 O53 1089 


BRB 10$ ; Share remainder with MOVP_ACCVIO 
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- SUBTITLE Context-Specific Access Violation Handling for VAX$MOVP 


Functional Description: 


It is almost too trivial to back out VAXSMOVP to its starting point. 
if time permits, we will add restart points to this routine. This will 
Llustrate how one could go about add ng restart capability to other 
decimal instructions, allowing the routines to pick up where they left 

off if an access violation occurs. This will also point out the 
magnitude of the task by showing the amount of intermediate state that 
must be saved for even so simple a routine as VAXSMOVP. 


The VAXSMOVP routine, Like VAXSCMPPx, uses no stack space. It also 


saves | a subset of the registers and so a special exit path must 
© VAXSREFLECT_FAULT. 


Output Parameters: 


RO is advanced over saved register array as the registers are restored. 
RO ends up pointing at the return PC. 


be taken 
; Input Parameters: 
RO - Address of top of stack when access violation occurred 
00(RO) = Saved RO on entry to VAXSMOVP 
5 04(RO) = Saved R1 
5 1 08(RO) = Saved R 
5 1 12(RO) = Saved R 
2 1 16(RO) = Saved 
' 20(RO) = 
OO(SP) - Saved RO (restored by VAX$HANDLER) 
04(SP) - Saved R1 
1 O8(SP) = Saved R 
: 1 12(SP) = Saved R 
5 


R1 contains the value of delta PC for all of the routines that 
yee Fats common code path. The FPD and ACCVIO bits are both set 
n 
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R10 
Return PC from VAX$MOVP routine | 
| 


00(RO) - Return PC from VAX$MOVP routine 


O(SP) = Value of RO on entry to VAXSMOVP 

4(SP) = Value of R1 on entry to VAXSMOVP 
O8(SP) - Value of R2 on entry to VAXSMOVP 
12(SP) = Value of R35 on entry to VAXSMOVP 


R10 is restored to its value on entry to VAXSMOVP. 
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MOVP_ACCVIO:: 
6€ 80 7D "mova = (R + PACK L_SAVED_RQ(SP) ; ‘Restore’ RO and RI 
08 A 80 7D MOVQ. (RO) +. PACK LISAVEDCR (SP) : Restore’ R2 and R3 
F8 AO 10 = «89 BISB3 #MOVP’M FPD,=8(RO)+- 
02 AE 0 MOVP_B_STATE(SP) : Preserve saved C-bit 


VAX IMAL = VAX=-11 Packed Decimal Instru tion Emul 16S p= :30:5 AX/VMS Macro v04-00 Page VAX 
Mba tts becoautetipentite Access Violation n nut g-S6F 1382 83; 22: 3 YEMULAT. SRCJVAXDECIML.MAR; 1 ° (3) VO4 
5A 80 00 a8 11% 10$: MOVL (RO)+,R10 3; Really restore R10 
51 00000303 8F 00 1103 MOVL #<MOVP_B DELTA_ PC!- ; Indicate offset for delta PC 
114 PACK_M_FPD!- : FPD bit should be set 
030C 1150 PACK-M_ACCVIO>,R1 : This is an access violation 
FCF1" 31 0 oe M3) BRW VAXSREPLECT FAULT ; Continue exception handling 
OF 1184 -DISABLE LOCAL BLOCK 
OF 1154 
OF 1155 ~ END 
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P 
MALSPA a Yt 
DECIMAL RALSSTRI 
DECIMALSSTRI a 
CIRAL_A ccv16 
EQUAL_LENGTH 

HANDLER TABLE BASE 
MINUS _ ZERO CHECK 
MODULE BASE. 
move_ACCV1O 
MOVP~B_DELTA_PC 
MOVP"B_ STATE 

“A_FPD 
ROVE. “S_SAVED_PSW 
mOVP™ V-SAVED_PSw 
noTt_EQ0A 


PACR_L_ SAVED -R9 


VAXSMOVP 
VAXSREFLECT_FAULT 
VAXSROPRAND 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 


, ABS . 8 { -) 00 ¢ 0.) NOPIC USR CON ABS LCL oo NOEXE 
SABS$ ») O17 ¢ 7.) NOPIC USR CON ABS LCL NOSHR EXE 
VAXSCODE fF | CTBY.) ¢ ( §°} PIC USR CON REL LCL SHR EXE 
PC TABLE 1c . - ( 3.) PIC USR CON REL LCL SHR NOEXE 
HARDLER_TABLE OOO1C ¢ «8.) O04 ¢ 4.) PIC USR CON REL LCL SHR NOEXE 
pe wean mare ose mowers meena se b 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 


Initialization :00:00. :00:01. 
itializati 10 00:00:00.05 00:00 01 39 
=y vista 159 —-9b:00;04242 0020051788 
ee, table sort 9 09:00:0 . 6 00:00:00.79 
Pass 2 20 00: 2 00:00:06.44 
Symbol table output 00:00:00.07 OF Ry: 0.39 
Psect synopsis output :00:00. :00:00. 

i 3 0 0.03 0:00:00.03 
Cross-reference output 9 0:00: 9-08 BF 8200-80 
Assembler run totals 43 0:00:07.4 00:00:31.04 


The working set Limit was 1200 pages. 

24566 bytes (48 pages) of virtual memory were used to buffer the intermediate c 

There were 10 pages of symbol table geese allocated to hold 141 non-local and ‘3° Tacat symbols. 
1155 source Lines were read in Pass 1 produc ing 20 object records in Pass 2. 

22 pages of virtual memory were used to define 20 macros. 
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! ; Macro Library statistics : 


Macro library name Macros defined 


-§ S5SDUA28: EMULAT.OBJ J VAXMACROS.MLB; 1 10 
55$DUA28: SYSLIBISTARLET. MLB;2 6 
TOTALS (all Libraries) 16 


272 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:VAXDECIML/OBJ=OBJ$:VAXDECIML MSRC$:VAXDECIML/UPDATE=(ENHS: VAXDECIML) +L IBS: VAXMACROS/LIB 
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